home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / SHNER32.ZIP / aliases.ini next >
INI File  |  1997-03-31  |  19KB  |  489 lines

  1. [Aliases]
  2. n0=/home /echo 4 Joining Channel #TeenChatz home of ShNeRsCrIpT... Plz Wait! | timer 1 5 /join #teenchatz
  3. n1=/op /mode # +ooo $$1 $2 $3
  4. n2=/dop /mode # -ooo $$1 $2 $3
  5. n3=/j /join #$$1
  6. n4=/p /part #
  7. n5=/n /names #$$1
  8. n6=/w /whois $$1
  9. n7=/k /kick # $$1
  10. n8=/q /query $$1
  11. n9=/hop /part # | /join #$$1
  12. n10=/send /dcc send $1 $2
  13. n11=/chat /dcc chat $1
  14. n12=/ping /ctcp $$1 ping
  15. n13=recho echo $1 <->. *2
  16. n14=wecho echo 4 zz *1 zz
  17. n15=floodchan {
  18. n16=  if ((%textlength != $null) && ($len($parms) > %textlength)) {
  19. n17=    if $me isop $chan {
  20. n18=      mode $chan -o+b $nick $wildsite
  21. n19=      kick $chan $nick Channel Long Text Flood!
  22. n20=      .timer 1 10 mode $chan -b $wildsite
  23. n21=      goto end
  24. n22=    }
  25. n23=    else { echo 2 $chan Channel Long Text Flood! ü $+ $nick $+ ü is being ignored. | .ignore -cu45 $wildsite }
  26. n24=    unset %flood.chan. [ $+ [ $chan [ $+ [ $nick ] ] ] ]
  27. n25=  }
  28. n26=  if ((%repeatkick == on) && ($me isop $chan)) {
  29. n27=    if $strip($parms) == %flood.repeat.text. [ $+ [ $chan [ $+ [ $nick ] ] ] ] {
  30. n28=      inc %flood.repeat. [ $+ [ $chan [ $+ [ $nick ] ] ] ] 1
  31. n29=      if %flood.repeat. [ $+ [ $chan [ $+ [ $nick ] ] ] ] == 1 .timer 1 10 unset %flood.repeat. [ $+ [ $chan [ $+ [ $nick ] ] ] ]
  32. n30=      if %flood.repeat. [ $+ [ $chan [ $+ [ $nick ] ] ] ] == 2 {
  33. n31=        mode $chan -o+b $nick $wildsite
  34. n32=        kick $chan $nick Channel Repeat Flood!
  35. n33=        unset %flood.repeat.text. [ $+ [ $chan [ $+ [ $nick ] ] ] ]
  36. n34=        unset %flood.repeat. [ $+ [ $chan [ $+ [ $nick ] ] ] ]
  37. n35=        goto end
  38. n36=      }
  39. n37=    }
  40. n38=    else {
  41. n39=      set %flood.repeat.text. [ $+ [ $chan [ $+ [ $nick ] ] ] ] $strip($parms)
  42. n40=      .timer 1 10 unset %flood.repeat.text. [ $+ [ $chan [ $+ [ $nick ] ] ] ]
  43. n41=    }
  44. n42=  }
  45. n43=  inc %flood.chan. [ $+ [ $chan [ $+  [ $nick ] ] ] ] 1
  46. n44=  if %flood.chan. [ $+ [ $chan [ $+ [ $nick ] ] ] ] == 1 .timer 1 10 unset %flood.chan. [ $+ [ $chan [ $+ [ $nick ] ] ] ]
  47. n45=  if %flood.chan. [ $+ [ $chan [ $+ [ $nick ] ] ] ] == 7 {
  48. n46=    if $me isop $chan {
  49. n47=      mode $chan -o+b $nick $wildsite
  50. n48=      kick $chan $nick Channel Flood!
  51. n49=      .timer 1 10 mode $chan -b $wildsite
  52. n50=    }
  53. n51=    else { echo 2 $chan Channel Flood! ü $+ $nick $+ ü is being ignored. | .ignore -cu90 $wildsite }
  54. n52=    unset %flood.chan. [ $+ [ $chan [ $+ [ $nick ] ] ] ]
  55. n53=  }
  56. n54=  :end
  57. n55=}
  58. n56=f11 { 
  59. n57=  .ignore -rinpt *!*@*
  60. n58=  .timer851 1 50 .ignore -rinpt *!*@*
  61. n59=  .disable #floodultracommand
  62. n60=  .disable #floodultraevent
  63. n61=  echo 2 -a Ultra Protection is now 4OFF.
  64. n62=  if ((%onick != $me ) && (%onick != $null)) { nick %onick | echo 2 -a Restore Nickname to ü $+ %onick $+ ü }
  65. n63=  unset %onick
  66. n64=}
  67. n65=f12 {
  68. n66=  if %onick == $null {
  69. n67=    .ignore -inpt *!*@* 
  70. n68=    .timer851 1 50 .ignore -inpt *!*@*
  71. n69=    .enable #floodultracommand
  72. n70=    .enable #floodultraevent
  73. n71=    set %onick $me 
  74. n72=    echo 2 -a Ultra Protection is now 3ON.
  75. n73=  }
  76. n74=  else {
  77. n75=    nick $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
  78. n76=    .ignore -inpt *!*@*
  79. n77=    echo 2 -a Random Nickname.
  80. n78=  }
  81. n79=}
  82. n80=mass { 
  83. n81=  %masscmd = $1
  84. n82=  if (%masscmd == d) {
  85. n83=    %count = 0
  86. n84=    unset %ops
  87. n85=    %cn = 0
  88. n86=    :Start
  89. n87=    %count = %count + 1
  90. n88=    if ($opnick(%count,#) == $null) { goto null }
  91. n89=    if (($opnick(%count,#) == $me)) { goto Start }
  92. n90=    :Start2
  93. n91=    %ops = %ops $opnick(%count,#)
  94. n92=    %cn = %cn + 1
  95. n93=    if (%cn == 4) { 
  96. n94=      if ((undernet !isin $server) && (dal !isin $server)) { goto four }
  97. n95=    }
  98. n96=    if (%cn == 6) { 
  99. n97=      if ((undernet isin $server) || (dal isin $server)) { goto six }
  100. n98=    }
  101. n99=    goto Start
  102. n100=    :null
  103. n101=    unset %count
  104. n102=    raw -q mode # -oooooo %ops
  105. n103=    raw -q mode # -oooooo %ops
  106. n104=    halt
  107. n105=    :four
  108. n106=    raw -q mode # -oooo %ops
  109. n107=    %cn = 0
  110. n108=    %ops =
  111. n109=    goto Start
  112. n110=    :Six
  113. n111=    raw -q mode # -oooooo %ops
  114. n112=    %cn = 0
  115. n113=    unset %ops
  116. n114=    goto Start
  117. n115=  }
  118. n116=  if (%masscmd == o) {
  119. n117=    %count = 0
  120. n118=    unset %nops
  121. n119=    %cn = 0
  122. n120=    :start
  123. n121=    %count = %count + 1
  124. n122=    if ($nopnick(%count,#) == $null) { goto null }
  125. n123=    if ($nopnick(%count,#) == $me) { goto Start }
  126. n124=    :Start2
  127. n125=    %nops = %nops $nopnick(%count,#)
  128. n126=    %cn = %cn + 1
  129. n127=    if (%cn == 4) { 
  130. n128=      if ((undernet !isin $server) && (dal !isin $server)) { goto four }
  131. n129=    }
  132. n130=    if (%cn == 6) { 
  133. n131=      if ((undernet isin $server) || (dal isin $server)) { goto six }
  134. n132=    }
  135. n133=    goto Start
  136. n134=    :null
  137. n135=    unset %count
  138. n136=    raw -q mode # +oooooo %nops
  139. n137=    raw -q mode # +oooooo %nops
  140. n138=    halt
  141. n139=    :four
  142. n140=    raw -q mode # +oooo %nops
  143. n141=    %cn = 0
  144. n142=    %nops =
  145. n143=    goto Start
  146. n144=    :Six
  147. n145=    raw -q mode # +oooooo %nops
  148. n146=    %cn = 0
  149. n147=    %nops =
  150. n148=    goto Start
  151. n149=  } 
  152. n150=  if (%masscmd == v) {
  153. n151=    %count = 0
  154. n152=    unset %nvo
  155. n153=    %cn = 0
  156. n154=    :start
  157. n155=    %count = %count + 1
  158. n156=    if ($nopnick(%count,#) == $null) { goto null }
  159. n157=    if ($nopnick(%count,#) == $me) { goto Start }
  160. n158=    :Start2
  161. n159=    %nvo = %nvo $nopnick(%count,#)
  162. n160=    %cn = %cn + 1
  163. n161=    if (%cn == 4) { 
  164. n162=      if ((undernet !isin $server) && (dal !isin $server)) { goto four }
  165. n163=    }
  166. n164=    if (%cn == 6) { 
  167. n165=      if ((undernet isin $server) || (dal isin $server)) { goto six }
  168. n166=    }
  169. n167=    goto Start
  170. n168=    :null
  171. n169=    unset %count
  172. n170=    raw -q mode # +vvvvvv %nvo
  173. n171=    raw -q mode # +vvvvvv %nvo
  174. n172=    halt
  175. n173=    :four
  176. n174=    raw -q mode # +vvvv %nvo
  177. n175=    %cn = 0
  178. n176=    %nvo =
  179. n177=    goto Start
  180. n178=    :Six
  181. n179=    raw -q mode # +vvvvvv %nvo
  182. n180=    %cn = 0
  183. n181=    %nvo =
  184. n182=    goto Start
  185. n183=  }
  186. n184=  if (%masscmd == q) {
  187. n185=    %count = 0
  188. n186=    unset %vo
  189. n187=    %cn = 0
  190. n188=    :start
  191. n189=    %count = %count + 1
  192. n190=    if ($nopnick(%count,#) == $null) { goto null }
  193. n191=    if ($nopnick(%count,#) == $me) { goto Start }
  194. n192=    :Start2
  195. n193=    %vo = %vo $nopnick(%count,#)
  196. n194=    %cn = %cn + 1
  197. n195=    if (%cn == 4) { 
  198. n196=      if ((undernet !isin $server) && (dal !isin $server)) { goto four }
  199. n197=    }
  200. n198=    if (%cn == 6) { 
  201. n199=      if ((undernet isin $server) || (dal isin $server)) { goto six }
  202. n200=    }
  203. n201=    goto Start
  204. n202=    :null
  205. n203=    unset %count
  206. n204=    raw -q mode # -vvvvvv %vo
  207. n205=    raw -q mode # -vvvvvv %vo
  208. n206=    halt
  209. n207=    :four
  210. n208=    raw -q mode # -vvvv %vo
  211. n209=    %cn = 0
  212. n210=    %vo =
  213. n211=    goto Start
  214. n212=    :Six
  215. n213=    raw -q mode # -vvvvvv %vo
  216. n214=    %cn = 0
  217. n215=    %vo =
  218. n216=    goto Start
  219. n217=  }
  220. n218=  if (%masscmd == k) {
  221. n219=    %k = 0
  222. n220=    :start
  223. n221=    %k = %k + 1
  224. n222=    if ($nick(%k,#) = $me) { goto start }
  225. n223=    if ($nick(%k,#) = $null) { halt } 
  226. n224=    raw -q kick # $nick(%k,#) : ShNeRsCrIpT %shnerversion >> MassKick
  227. n225=    goto start
  228. n226=  }
  229. n227=  if (%masscmd == n) {
  230. n228=    %k = 0
  231. n229=    :start
  232. n230=    %k = %k + 1
  233. n231=    if ($nopnick(%k,#) = $me) { goto start }
  234. n232=    if ($nopnick(%k,#) = $null) { halt } 
  235. n233=    raw -q kick # $nopnick(%k,#) : ShNeRsCrIpT %shnerversion >> MassLKick
  236. n234=    goto start
  237. n235=  }
  238. n236=  if (%masscmd == p) {
  239. n237=    %k = 0
  240. n238=    :start
  241. n239=    %k = %k + 1
  242. n240=    if ($opnick(%k,#) = $me) { goto start }
  243. n241=    if ($opnick(%k,#) = $null) { halt } 
  244. n242=    raw -q kick # $opnick(%k,#) : ShNeRsCrIpT %shnerversion >> MassPKick
  245. n243=    goto start
  246. n244=  }
  247. n245=  if (%masscmd == b) {
  248. n246=    set %k 0
  249. n247=    :start
  250. n248=    %k = %k + 1
  251. n249=    if ($nick(%k,#) = $me) { goto start }
  252. n250=    if ($nick(%k,#) = $null) { halt } 
  253. n251=    raw -q kick # $nick(%k,#) :ShNeRsCrIpT %shnerversion >> MassBKick | mode # +b $mask($address($nick(%k,#),2),2) 
  254. n252=    goto start
  255. n253=  }
  256. n254=  if (%masscmd == m) {
  257. n255=    recho 6 Mass MSG'in  $+ # $+  with -> *2
  258. n256=    %m = *2
  259. n257=    %i  = 0
  260. n258=    %mnicks = ""
  261. n259=    :Start
  262. n260=    %i = %i + 1
  263. n261=    if (($nick(%i,#) == $me)) { goto start } 
  264. n262=    if ($nick(%i,#) == $null) { goto end }
  265. n263=    %mnicks = %mnicks $+ $nick(%i,#) $+ ,
  266. n264=    goto Start
  267. n265=    :End
  268. n266=    msg %mnicks *2
  269. n267=  }
  270. n268=  if (%masscmd == i) {
  271. n269=    recho 6 Mass Inviting  $+ # $+  ( $+ $nick(0,#) ppl) to  $+ *2 $+ 
  272. n270=    %ic = *2
  273. n271=    %i = 0
  274. n272=    :Start
  275. n273=    %i = %i + 1
  276. n274=    if (($nick(%i,#) != $me) && ($nick(%i,#) != $null)) { invite $nick(%i,#) %ic }
  277. n275=    if ($nick(%i,#) == $null) { halt }
  278. n276=    goto Start    
  279. n277=  }
  280. n278=}
  281. n279=fk {
  282. n280=  if (*2 == $null) { %fkr = Cuz I felt Like it }
  283. n281=  else %fkr = *2
  284. n282=  %fk = $1
  285. n283=  %ppl = $nick(0,#)
  286. n284=  :start
  287. n285=  if ($nick(%ppl,#) != $me) {
  288. n286=    %nick = $nick(%ppl,#)
  289. n287=    %fkaddy = $address(%nick,0)
  290. n288=    if ((%fk iswm %fkaddy) || (%fk isin %fkaddy)) { raw -q kick # %nick :ShNeRsCrIpT %shnerversion >> FiLTeR KiCK ( $+ %fk $+ ) ( $+ %fkr $+ ) }
  291. n289=  }
  292. n290=  %ppl = %ppl - 1
  293. n291=  if (%ppl > 0) { goto start }
  294. n292=  unset %ppl | unset %fkaddy | unset %nick | unset %fk 
  295. n293=  else {
  296. n294=    %filtercom = k 
  297. n295=    %fkpat = $1
  298. n296=    %filtchan = #
  299. n297=    %fkreason = *2
  300. n298=    %filter = on
  301. n299=    recho 3 Starting Filter Kick of  $+ %fkpat $+  in  $+ %fkchan $+ ...
  302. n300=    who %filtchan
  303. n301=  }
  304. n302=}
  305. n303=k {
  306. n304=  %kickcmd = $1
  307. n305=  if (%kickcmd == -f) {
  308. n306=    if (*3 == $null) { set %fkr Cuz I felt Like it }
  309. n307=    else %fkr = *3
  310. n308=    %fk = $2
  311. n309=    %ppl = $nick(0,#)
  312. n310=    :start
  313. n311=    if ($nick(%ppl,#) != $me) {
  314. n312=      inc %kick
  315. n313=      %nick = $nick(%ppl,#)
  316. n314=      %fkaddy = $address(%nick,0)
  317. n315=      if ((%fk iswm %fkaddy) || (%fk isin %fkaddy)) { raw -q kick # %nick : ShNeRsCrIpT %shnerversion >> fiLTeR KiCK ( $+ %fk $+ ) ( $+ %fkr $+ ) (Victim #: %kick $+ ) }
  318. n316=    }
  319. n317=    %ppl = %ppl - 1
  320. n318=    if (%ppl > 0) { goto start }
  321. n319=    unset %ppl %fkaddy %nick %fk | halt 
  322. n320=    else {
  323. n321=      %filtercom = k 
  324. n322=      %fkpat = $2
  325. n323=      %filtchan = #
  326. n324=      %fkreason = *3
  327. n325=      %filter = on
  328. n326=      recho 3 Starting Filter Kick of  $+ %fkpat $+  in  $+ %fkchan $+ ...
  329. n327=      who %filtchan | halt
  330. n328=    }
  331. n329=  }
  332. n330=  if (%kickcmd == -r) {
  333. n331=    inc %Kick 
  334. n332=    %randkick = $rand(1,$nopnick(0,#)) 
  335. n333=    raw -q kick # $nopnick(%randkick,#) :ShNeRsCrIpT %shnerversion >> Random Kick ( $+ %randkick $+ / $+ $nopnick(0,#) $+ ) (Victim #: %kick $+ ) | halt
  336. n334=  }     
  337. n335=  if (%kickcmd == -rb) {
  338. n336=    inc %kick
  339. n337=    %randkick = $rand(1,$nopnick(0,#))
  340. n338=    raw -q kick # $nopnick(%randkick,#) :ShNeRsCrIpT %shnerversion >> Random KickBan ( $+ %randkick $+ / $+ $nopnick(0,#) $+ ) (Victim #: %kick $+ ) | /ban $nopnick(%randkick,#) 3 | halt
  341. n339=  }     
  342. n340=  if (%kickcmd == -s) {
  343. n341=    %screw = on
  344. n342=    %screwc = #
  345. n343=    who $2
  346. n344=    timer 1 7 unset %screw | halt
  347. n345=  }
  348. n346=  if (%kickcmd == -b) {
  349. n347=    ban $2 3
  350. n348=    kick # $2 Banned *3 | halt
  351. n349=  }
  352. n350=  if (%kickcmd == -fb) {
  353. n351=    %ci = 1
  354. n352=    %cquit = false
  355. n353=    %addr = $2
  356. n354=    %qs = $rand(9,15)
  357. n355=    %len = $len(%addr) - 1
  358. n356=    :Start
  359. n357=    if (%ci <= %qs) {
  360. n358=      %cp = $rand(2,%len)
  361. n359=      %chr = $mid(%cp,1,%addr)
  362. n360=      if ( %chr != @ ) && ( %chr != . ) {
  363. n361=        %pos1 = [ %cp ] - 1
  364. n362=        %pos2 = [ %cp ] + 1
  365. n363=        %str1 = $mid(1,%pos1,%addr)
  366. n364=        %str2 = $mid(%pos2,256,%addr)
  367. n365=        %addr = [ %str1 ] $+ ? $+ [ %str2 ]
  368. n366=        %ci = %ci + 1
  369. n367=      }
  370. n368=    } 
  371. n369=    else %cquit = true
  372. n370=    if ( %cquit == false ) goto Start
  373. n371=    mode # +b *!* $+ [ %addr ] | halt
  374. n372=  }
  375. n373=  if (%kickcmd == -m) {
  376. n374=    raw -q kick # $$2 :[ShNeRsCrIpT %shnerversion $+ ] | raw -q kick # $$3 :[ShNeRsCrIpT %shnerversion $+ ] | raw -q kick # $$4 :[ShNeRsCrIpT %shnerversion $+ ] | raw -q kick # $$5 :[ShNeRsCrIpT %shnerversion $+ ] | raw -q kick # $$6 :[ShNeRsCrIpT %shnerversion $+ ] | raw -q kick # $$7 :[ShNeRsCrIpT %shnerversion $+ ] | raw -q kick # $$8 :[ShNeRsCrIpT %shnerversion $+ ] | raw -q kick # $$9 :[ShNeRsCrIpT %shnerversion $+ ] | raw -q kick # $$10 :[ShNeRsCrIpT %shnerversion $+ ] | halt
  377. n375=  }
  378. n376=  if (%kickcmd = -i) {
  379. n377=    inc %Kick
  380. n378=    ignore -a $$2 3 | raw -q kick # $$2 :KiCK/iGNoReD [ShNeRsCrIpT %shnerversion $+ ] (Victim #: %kick $+ ) | halt
  381. n379=  } 
  382. n380=  else {
  383. n381=    if (*2 == $null) { inc %kick | raw -q kick # $1 :[ShNeRsCrIpT %shnerversion $+ ] (Victim #: %kick $+ ) }
  384. n382=    elseif (*2 != $null) { inc %kick | raw -q kick # $$1 :| *2 | (Victim #: %kick $+ ) }
  385. n383=  }
  386. n384=}
  387. n385=antiall anti1 | anti2 | anti3
  388. n386=anti1 {
  389. n387=  .timer543 0 120 raw -q pong $me $me
  390. n388=  echo 6 %p Anti-Idle (1) [AutoPong] initialized...
  391. n389=}
  392. n390=anti2 {
  393. n391=  .timer544 0 120 ame >> Away/Anti-IDLE Protection ...
  394. n392=  echo 6 %p Anti-Idle (2) [AutoMessage] initialized...
  395. n393=}
  396. n394=anti3 {
  397. n395=  .timer545 0 120 ctcp $me ping
  398. n396=  echo 6 %p Anti-Idle (3) [AutoPing] initialized...
  399. n397=}
  400. n398=antioff {
  401. n399=  .timer543 off
  402. n400=  .timer544 off
  403. n401=  .timer545 off
  404. n402=  echo 6 %p Anti-Idle Shut-Down Success...
  405. n403=}
  406. n404=isme { if (($1 = $me) || ($address($1,2) = $address($me,2))) { return true  } | else { return false } }
  407. n405=isbot { if (($$1 = W) || ($$1 = X) && (cservice@undernet.org isin $address($$1,1))) { return true } | else { return false } }
  408. n406=dl  { if ($level($address($1,0)) = $null) { return null } | return $remove($level($address($1,0)),$chr(44)) }
  409. n407=dsc { return Brought to you by DScript⌐ by DonDon }
  410. n408=cc { 
  411. n409=  set %timein $ctime | if ($1 = $null) { halt } | if (%active = $null)  { set %active echo 5 -a }
  412. n410=  %active DonDon CloneFinder is Scan'n  -= $+ $1 $+ =- for Clon'z
  413. n411=  %ops = $math($opnick(0,$1),$nick(0,$1),r) | %nops = $math($nopnick(0,$1),$nick(0,$1),r) | %total = %ops + %nops | if (%total = 99) { %nops = %nops $+ .5 | %ops = %ops $+ .5 }
  414. n412=  %nix = 1 | %qc = $chr(32)  | %na = $chr(32) | %sites = $chr(32)
  415. n413=  :next | %nx = 1 | %nn = $nick(%nix,$1) | if (%nn = $null) { goto report } |  %na = *!*@* $+ $gettok($address(%nn,1),2,64)
  416. n414=  :up | if [ $ial(%na,%nx).nick ] ison $1 { %qc = %qc $ial(%na,%nx).nick , | inc %nx | goto up } 
  417. n415=  %qc = $remove(%qc,$chr(32)) | if ($gettok(%qc,0,44) > 1) { if (%na !isin %sites) { inc %clns 1 | inc %clnss 2 | %sites = %sites %na  | %active %qc are the 4 $math(%clns,th) $+  Set of clones from %na and on $1 right now } }
  418. n416=  inc %nix 1 | unset %na %qc %nc | goto next
  419. n417=  :report | %clnsss = $math(%clns,$nick(0,$1),r) |  %active 2 Total Nicks: $+ $nick(0,$1)  $+ , $+ 4 Total Clones: $+ %clns ~~  %clnsss $+ $chr(37)  $+ , $+ 3 Ops: $+ $opnick(0,$1) ~~ %ops  $+ . $+  Nops: $+ $nopnick(0,$1) ~~ %nops $+ $chr(37) | %total = [ $ctime - %timein ] | %active Total Process time %total secs 
  420. n418=  :end | unset %clns %clnss %clnsss %na %nc %nx %nix %timein %total %ops %nops %qc %sites | halt
  421. n419=}
  422. n420=math {  
  423. n421=  if ($3 = $null) { goto $2 } | else { goto $3 } 
  424. n422=  :+ | %a = $1 + $2 | return %a 
  425. n423=  :- |  %a = $1 - $2 | return %a 
  426. n424=  :/  | %a = $1 / $2 | return %a 
  427. n425=  :^ | %a = $1 ^ $2 | return %a 
  428. n426=  :* | %a = $1 * $2 | return %a 
  429. n427=  :$ | %dol = $token(1,46,$1) | %i = $len(%dol) | %ix = %i / 3 | %ix1 = %ix * 3 | %r = %i - %ix1 | %c = 1 | if (%r = 0) { %d = $chr(36) } | else { %d = $chr(36) $+ $left(%r,%dol) $+ , | inc %c %r }  | :dol | if ($mid(%c,3,%dol) != $null) { %d = %d $+ $mid(%c,3,%dol) $+ , | inc %c 3 | goto dol } | %i = $len(%d) | dec %i 1 | %d = $mid(1,%i,%d) | if ($token(2,46,$1) = $null) { %d = %d $+ .00 } | else { %d = %d $+ . $+ $+ $token(2,46,$1) } | return %d
  430. n428=  :p  | %a = $1 | %t = $2 | %a1 = %a * 100 | %a2 = %a1 / %t | return  %a2
  431. n429=  :b |  %dol = $1 | %i = $len(%dol) | %ix = %i / 3 | %ix1 = %ix * 3 | %r = %i - %ix1 | %c = 1 | if (%r = 0) { %d = $chr(32) } | else { %d = $left(%r,%dol) $+ , | inc %c %r } | :by | if ($mid(%c,3,%dol) != $null) { %d = %d $+ $mid(%c,3,%dol) $+ , | inc %c 3 | goto by } | %i = $len(%d) | dec %i 1 | %d = $mid(1,%i,%d) | return $remove(%d,$chr(32)) bytes
  432. n430=  :k | %dol = $1 | %k = %dol / 1000 | %k1 = %k * 1000 | %r = %dol - %k1 | if ($len(%r) < 2) { %r = 00 $+ %r } |  %total = %k $+ . $+ %r | return %total Kilobytes
  433. n431=  :th | %len = $len($1) | if ($mid(%len,1,$1) = 1) { return $1 $+ st } |  if ($mid(%len,1,$1) = 2) { return $1 $+ nd } |  if ($mid(%len,1,$1) = 3) { return $1 $+ rd }  | return $1 $+ th
  434. n432=}
  435. n433=lock { /mode # +stinmlk 999 [ChZmEaZ }
  436. n434=shiton .enable #shitlist | echo 5 %p Shitlist Enabled... | set %shitlist Enabled
  437. n435=shitoff .disable #shitlist | echo 5 %p Shitlist Disabled... | set %shitlist Disabled
  438. n436=pflood {
  439. n437=  .ignore -u120 $$1 2 
  440. n438=  echo 4 %p Ping Flooding $$1.  Ignoring for 2 min.
  441. n439=  .timer 10 1 CTCP $$1 PING
  442. n440=  .timer 10 1 CTCP $$1 PING
  443. n441=  .timer 10 1 CTCP $$1 PING
  444. n442=  .timer 10 1 CTCP $$1 PING
  445. n443=  .timer 10 1 CTCP $$1 PING
  446. n444=  .timer 10 1 CTCP $$1 PING
  447. n445=}
  448. n446=vflood {
  449. n447=  .ignore -u120 $$1 2
  450. n448=  echo 4 %p Version Flooding $$1.  Ignoring for 2 min.
  451. n449=  .timer 10 1 CTCP $$1 VERSION
  452. n450=  .timer 10 1 CTCP $$1 VERSION
  453. n451=  .timer 10 1 CTCP $$1 VERSION
  454. n452=  .timer 10 1 CTCP $$1 VERSION
  455. n453=  .timer 10 1 CTCP $$1 VERSION
  456. n454=  .timer 10 1 CTCP $$1 VERSION
  457. n455=}
  458. n456=icmp run $mircdir $+ ping.exe -l $$?="PING Packet Size:" -t $$?="Enter IP to send ICMP flood to:" | echo 4 %p ICMP Flooding: ò $! ò
  459. n457=inviteflood {
  460. n458=  .timer 10 2 ri $1
  461. n459=  .timer 10 2 ri $1
  462. n460=}
  463. n461=ri invite $1 #$r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
  464. n462=shnerhelp {
  465. n463=  /echo 1 4ShNeRsCrIpT CoMmAnDs
  466. n464=  /echo 1 /mass (type): 2Performs a MassFunction?  Type = o:OP d:DEOP v:VOICE k:KICK
  467. n465=  /echo 1 /antiall : 2Turns all Anti-Idle (1,2,3) ON
  468. n466=  /echo 1 /anti1 : 2Turns AutoPONG (1) ON
  469. n467=  /echo 1 /anti2 : 2Turns AutoMESSAGE (2) ON
  470. n468=  /echo 1 /anti3 : 2Turns AutoPING (3) ON
  471. n469=  /echo 1 /antioff : 2Turns ALL Anti-Idle Function OFF (1,2,3)
  472. n470=  /echo 1 /help : 2Basic IRC Help (MiRC)
  473. n471=  /echo 1 /home : 2Joins #TeenChatz ... ShNeRsCrIpT Home!
  474. n472=}
  475. n473=accept {
  476. n474=  .timer97 off
  477. n475=  .timer98 off  
  478. n476=  .disable #timer2
  479. n477=  /notice %pagenick %pagenick your page has been accepted....
  480. n478=  /msg %pagenick %pagenick Hey What 'da u need?
  481. n479=}  
  482. n480=deny {
  483. n481=  .timer98 off
  484. n482=  .timer97 off
  485. n483=  .disable #timer2
  486. n484=  /notice %pagenick %pagenick your page has been denied, try later....
  487. n485=}
  488. n486=rctcp raw -q notice $$1 : $+ $$2 $$3 *4 $+ 
  489.